<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>39</cardCount>
<cardID>3851</cardID>
<listID>14925</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>--Modified on Monday, May 7, 1990-11:24:19 AMon update--Modified by Peter J├╢rgensen on Monday, May 7, 1990 at 11:24:16 AM-- uses downloaded copy of $MACARCH.CONTENTS to add new and missing-- entries to archive stack.Get FileName("TEXT")if it is empty then exit to HyperCardput it into upDateFileopen file UpDateFileread from file UpDateFile until return -- one line at a timerepeat until it is empty -- the end of the fileput itread from file UpDateFile until return -- one line at a timeif the mouse is down then exit repeat -- safety button!!delete char 1 to 18 of it -- strip CMS file nameput char 1 to 3 of it into fSizeput char 5 to 12 of it into fDatedelete char 1 to 13 of itput offset("/",it) into slashif slash = 0 then put "unspecified" into fDirelse put char 1 to slash-1 of it into fDirput char slash+1 to (the number of chars in it) of it into fNameif the short name of this cd is not fDir thenput sortlines(fld text) into fld "text"go cd fDirif the result is not empty then makeNewDirCard fDirend ifdelete last char of fName -- the carriage returnif fld text contains fName then next repeatput return & fName after fld "text"put space & fSize &"K" && fDate after fld "text"end repeatclose file UpDateFileend updateon MakeNewDirCard fDir--Modified by Peter J├╢rgensen on Monday, May 7, 1990 at 11:24:16 AMdoMenu "New Card"Set the name of this card to fDirput "Files in Directory: " & fDir into fld "Directory"end MakeNewDirCardon CloseStackglobal theFilesif theFiles is not empty thenAnswer "Save list of archive files to get?" with "No" or "Yes"if it is "Yes" thenAsk file "Save file list as..." with "GetThese."if it is empty then pass closeStackput it into theFileopen file theFileread from file theFile for 30000 -- to the end of file.write theFiles to file theFileclose file theFileput empty into theFilesend ifend ifpass closeStackend closeStackon Idleglobal action,delayif (the ticks > delay) and (the selection is not empty) thenif action is not empty thenif action is "print" thenAnswer "Print this selection?" with "No" or "Yes"if it is "Yes" thentextstream "the selection"end ifelseput the selection into fld "files"Answer "Save this selection?" with "No" or "Yes"if it is "Yes" thenFieldToFile("fld files")put empty into fld "files"end ifend ifput empty into actionset the locktext of fld "text" to trueend ifend ifpass Idleend Idleon backupset the lockscreen to trueset the lockmessages to truerepeat with c = 1 to the number of cdsput cif c = 15 then next repeatgo cd cdoMenu "Copy Card"push cardgo stack "new archives"go lastdomenu "Paste Card"pop cardend repeatend backup</script>
